NBC Slam Jams!/NBC Slam Jams!.iso/coachsed.cst/00022_Script_generic file routines

Text File | 1999-06-17 | 5KB | 173 lines

on readfile thePath
  --THIS UTILITY READS A FILE AND RETURNS IT
  if thePath = "?" then
    --THE FILE PATH IS NOT SPECIFIED, USE A DIALOG BOX
    set mTextReader = new(xtra "FileIO")
    if objectP(mTextReader) then
      if the platform contains "Windows" then
        setFilterMask(mTextReader,"TEXT")
        set theFile = displayOpen(mTextReader)
        if theFile = "" then
          return -1
        end if
      else
        setFilterMask(mTextReader,"*.*")
        set theFile = displayOpen(mTextReader)
        if NOT(theFile) then
          return -1
        end if
      end if
      openFile(mTextReader,theFile,1)
      if status(mTextReader) <> 0 then
        set result = error(mTextReader,(status(mTextReader)))
        set mTextReader = 0
        return result
      end if
      set theFileContent = readFile(mTextReader)
      set mTextReader = 0
      return theFileContent
    else
      return -1
    end if
  else
    --THE FILE PATH IS SPECIFIED, OPEN THE FILE
    set mTextReader = new(xtra "FileIO")
    if objectP(mTextReader) then
      openFile(mTextReader,thePath,1)
      if status(mTextReader) <> 0 then
        set result = error(mTextReader,(status(mTextReader)))
        set mTextReader = 0
        return result
      end if
      set theFileContent = readFile(mTextReader)
      set mTextReader = 0
      return theFileContent
    else
      return -1
    end if
  end if
end

--

on writefile thePath, theText
  --THIS UTILITY WRITES A FILE AND RETURNS AN ERROR CODE
  set mTextWriter = new(xtra "FileIO")


  if objectP(mTextWriter) then
    openFile(mTextWriter,thePath,2)
    if getLength(mTextWriter) then
      delete(mTextWriter)
    else
      closeFile(mTextWriter)
    end if

    createFile(mTextWriter,thePath)
    openFile(mTextWriter,thePath,2)
    writeString(mTextWriter,theText)
    set mTextWriter = 0
    set theFile = 0
  else
    set theFile = -1
  end if
  return theFile
end

--
on getFileName
  --THE FILE PATH IS NOT SPECIFIED, USE A DIALOG BOX
  set mTextReader = new(xtra "FileIO")
  if objectP(mTextReader) then
    if the platform contains "Windows" then
      setFilterMask(mTextReader,"TEXT")
      set theFile = displayOpen(mTextReader)
      if theFile = "" then
        return -1
      end if
    else
      setFilterMask(mTextReader,"*.*")
      set theFile = displayOpen(mTextReader)
      if NOT(theFile) then
        return -1
      end if
    end if
    openFile(mTextReader,theFile,1)
    if status(mTextReader) <> 0 then
      set result = error(mTextReader,(status(mTextReader)))
      set mTextReader = 0
      return result
    end if
    set theFileName = fileName(mTextReader)
    set mTextReader = 0
    return theFileName
  else
    return -1
  end if
end




on fileExist thePath
  --THIS UTILITY VERIFIES A FILES EXISTANCE AND RETURNS AN ERROR CODE
  set mTextChecker = new(xtra "FileIO")
  if objectP(mTextChecker) then
    openFile(mTextChecker,thePath,1)
    if status(mTextChecker) <> 0 then
      closeFile(mTextChecker)
      set result = error(mTextChecker,(status(mTextChecker)))
      set mTextChecker = 0
      return result
    end if
    set mTextChecker = 0
    return 1
  else
    set theFile = -1
  end if
  return theFile
end

--

on appendFile thePath, theText
  if fileExist(thePath) then
    set mTextReader = new(xtra "FileIO")
    openFile(mTextReader,thePath,2)
    if status(mTextReader) <> 0 then
      return(error(mTextReader,(status(mTextReader))))
    end if
    setPosition(mTextReader,getLength(mTextReader))
    writeString(mTextReader,theText)
    closeFile(mTextReader)
    set mTextReader = 0
  else
    set mTextReader = new(xtra "FileIO")
    createFile(mTextReader,thePath)
    openFile(mTextReader,thePath,2)
    if status(mTextReader) <> 0 then
      return(error(mTextReader,(status(mTextReader))))
    end if
    setPosition(mTextReader,getLength(mTextReader))
    writeString(mTextReader,theText)
    closeFile(mTextReader)
    set mTextReader = 0
  end if
end

--

on fileioerr theError
  set errorList = [33 : "File directory full",¼
                   34 : "Volume full",¼
                   35 : "Volume not found",¼
                   36 : "I/O Error", ¼
                   37 : "Bad file name",¼
                   38 : "File not open",¼
                   42 : "Too many files open",¼
                   43 : "File not found",¼
                   56 : "No such drive",¼
                   65 : "No disk in drive",¼
                   120 : "Directory not found"]
  return (getProp(errorList,abs(theError)))
end